On Error Resume Next
Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator
Dim UserName
Dim Password
Dim colItems

strComputer = "."
UserName = ""
Password = ""
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
	WScript.Echo "Access: " & objItem.Access
	WScript.Echo "Availability: " & objItem.Availability
	WScript.Echo "BlockSize: " & objItem.BlockSize
	WScript.Echo "Caption: " & objItem.Caption
	WScript.Echo "Compressed: " & objItem.Compressed
	WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
	WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
	WScript.Echo "CreationClassName: " & objItem.CreationClassName
	WScript.Echo "Description: " & objItem.Description
	WScript.Echo "DeviceID: " & objItem.DeviceID
	WScript.Echo "DriveType: " & objItem.DriveType
	WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
	WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
	WScript.Echo "ErrorMethodology: " & objItem.ErrorMethodology
	WScript.Echo "FileSystem: " & objItem.FileSystem
	WScript.Echo "FreeSpace: " & objItem.FreeSpace
	WScript.Echo "InstallDate: " & objItem.InstallDate
	WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
	WScript.Echo "MaximumComponentLength: " & objItem.MaximumComponentLength
	WScript.Echo "MediaType: " & objItem.MediaType
	WScript.Echo "Name: " & objItem.Name
	WScript.Echo "NumberOfBlocks: " & objItem.NumberOfBlocks
	WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
	for each propValue in objItem.PowerManagementCapabilities
		WScript.Echo "PowerManagementCapabilities: " & propValue
	next
	WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
	WScript.Echo "ProviderName: " & objItem.ProviderName
	WScript.Echo "Purpose: " & objItem.Purpose
	WScript.Echo "QuotasDisabled: " & objItem.QuotasDisabled
	WScript.Echo "QuotasIncomplete: " & objItem.QuotasIncomplete
	WScript.Echo "QuotasRebuilding: " & objItem.QuotasRebuilding
	WScript.Echo "Size: " & objItem.Size
	WScript.Echo "Status: " & objItem.Status
	WScript.Echo "StatusInfo: " & objItem.StatusInfo
	WScript.Echo "SupportsDiskQuotas: " & objItem.SupportsDiskQuotas
	WScript.Echo "SupportsFileBasedCompression: " & objItem.SupportsFileBasedCompression
	WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
	WScript.Echo "SystemName: " & objItem.SystemName
	WScript.Echo "VolumeDirty: " & objItem.VolumeDirty
	WScript.Echo "VolumeName: " & objItem.VolumeName
	WScript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber
Next
